m;=2 while m>10 do m:=m+1; write('m=',m);
m;=2 while m<10 do m:=m+1; write('m=',m);
m:=2; while (m div 2=1) do m:=m+1; write('m=',m);
Sau khi thực hiện đoạn lệnh sau, thì m có giá trị bằng mấy?
M:=1:
While m<0 do m:=m+1;
Write(m);
A.11 B.9 C.8 D.10
Biết ngay đề bài có vấn đề mà, cách tốt nhất để xem nó in ra màn hình cái gì là đánh vô Free Pascal
Đó, xem lại đề bài đi bạn :v
Viết chương trình tính tổng từ m đến n theo while... do
tổng từ m đến n theo while...do tổng từ m đến n theo while...dVar m,n,i,s:integer;
Begin
Write('m = ');readln(m);
Write('n = ');readln(n);
For i:=m to n do s:=s+i;
Write('tong tu ',m,' den ',n,' la ',s);
Readln;
End.
Hãy cho biết đoạn chương trình sau đây máy tính sẽ thực hiện bao nhiêu vòng lặp? Khi kết thúc giá trị của S sẽ ra bằng bao nhiêu? ( Yêu cầu mô tả vòng lặp)
a) Đoạn chương trình 1:
S:=10 ; x:=1;
While S>5 do S:=S-x;
Write (S);
b) Đoạn chương trình 2:
S:=10 ; n:=0;
While n<10 do;
Begin
n:=n=3 ; S:=S-n;
end;
Write (S);
Giúp mình với ạ <3
a) Đoạn chương trình 1:
Máy sẽ thực hiện 5 vòng lặp
Giá trị của S : 5
-Vòng 1: S>5 ---> ĐK đúng ---> S:=10-1=9
- Vòng 2: S>5 ---> ĐK đúng ---> S=9-1=8
- Vòng 3: S>5 ---> ĐK đúng ---> S=8-1=7
- Vòng 4 : S>5 ---> ĐK đúng ---> S=7-1=6
- Vòng 5 : S>5 ---> ĐK đúng ---> S=6-1=5
S>5 ---> ĐK sai ---> kết thúc vòng lặp
b) Bạn kiểm tra lại đề nhé, ở phần n:=n=3;
Câu lệnh sau giải bài toán nào:
While M <> N do
If M > N then M:=M-N else N:=N-M;
A. Tìm UCLN của M và N
B. Tìm BCNN của M và N
C. Tìm hiệu nhỏ nhất của M và N
D. Tìm hiệu lớn nhất của M và N
Câu lệnh trên giải bài toán tìm UCLN của M và N. Với ý tưởng, kiểm tra xem M, N có giá trị khác nhau không. Nếu có thực hiện kiểm tra giá trị nào lớn hơn. Giá trị lớn hơn sẽ được gán bằng hiệ của số lớn trừ số bé. Việc làm thế cứ lặp đi lặp lại đến khi hai giá trị bằng nhau thì đưa ra UCLN của nó.
Đáp án: A
a) if a>b then max:=a; else max:=b; |
b) var X: Array[5..10] Of Real; |
c) X:=10; while X:=10 do X := X+5; |
d) for i:=1.5 to 10 do m:=m + 1; e) if a>b then max:=a else max:=b; f) var X: Array[5.5..10] Of Real; g) X:=10; while X>10 do X := X+5; h) for i:=1.5 to 10 do m:=m + 1; III. Hãy viết các câu lệnh, khai báo theo yêu cầu sau: A. Khai báo mảng A gồm 50 phần tử thuộc kiểu dữ liệu số thực. B. Phần tử thứ 5 của mảng A được gán giá trị là 8. C. Khai báo mảng dayso gồm 50 phần tử thuộc kiểu dữ liệu số nguyên. D. Nhập giá trị cho phần tử thứ 2 trong mảng diem. IV. Bài tập Viết chương trình thực hiện các yêu cầu sau: a. Nhập điểm văn và điểm toán của n học sinh trong một lớp (n nhập từ bàn phím) b. Tính điểm trung bình của mỗi học sinh (kết quả lấy 1 chữ số thập phân) help với mai ktr ;-;
|
III:
A: var a:array[1..50]of real;
B: a[5]:=8;
C: var a:array[1..50]of integer;
D: readln(dem[2]);
* Chữa sai thành đúng:
a, Var const:=2;b:=10;
b, Var thu_tu,so_luong:Integer;real;
c, For i:=1,5 to 10 do writeln ('A');
d, While x=10 do x=x+3;
e, Var A: array[1..100] of real;
g, If m>n; then m:=m-n
Mọi người ơi giúp mình được k ạ? Mình đang cần gấp huhu
A=1*2*3...*10
Dùng lệnh While...do
Lệnh For...do
Điều kiện(i<=10)
Giúp mình với
lệnh while
program tich;
uses crt;
var i,s:integer;
begin
clrscr;
S:= 1;
i:= 1;
while i <= 10do
begin
S:= S *i;
i:= i +1;
end;
write('Tich tu 1 den 10 la:',S);
readln;
end.
lệnh for
Program Tich; Uses crt; Var S,i:Integer; BEGIN clrscr; S:=1; For i:=1 to 10do S:=S * i; Writeln( ‘Tich = ’, S); Readln; END.Bài 1 : Cho S và i là biến nguyên. Khi chạy chương trình :
S:=0;
for i:=1 to 5 do S :=S +i;
writeln(S);
Kết quả in ra màn hình S là bao nhiêu ?
Bài 2: Tìm giá trị của S trong đoạn chương trình dưới đây:
S:=2;
For i:=1 to 5 do S:=S + i;
Bài 3: Hãy chỉ ra lỗi trong các câu lệnh sau đây:
1)X:=10; while X:=10 to X: X+5;
2) X:=10; while X = 10 do X=X+5
3) S:=0; n:=0; while S <= 10 do n:n+1 , S:= S+n;
( Giair chi tiết giúp mình với )
Bài 1: S=15
Bài 2: S=17
Bài 3:
1)X:=10; while X:=10 to X:(thiếu dấu '=') X+5;
2) X:=10; while X = 10 do X(thiếu dấu ';') =X+5 (thiếu dấu ';')
3) S:=0; n:=0; while S <= 10 do (thiếu 'begin') n:(thiếu dấu '=')n+1 ,(để kết thúc đoạn lệnh dùng dấu ';' không phải dấu ',') S:= S+n; (thiếu end;)
while...doA. Trắc nghiệm
Câu 1:Vòng lặp While – do kết thúc khi nào
A. Khi một điều kiện cho trước được thỏa mãn
B. Khi đủ số vòng lặp
C. Khi tìm được Output
D. Tất cả các phương án
Câu 2:Việc đầu tiên mà câu lệnh While ... do cần thực hiện là gì?
A. Thực hiện < câu lệnh > sau từ khóa Do
B. Kiểm tra giá trị của < điều kiện >
C. Thực hiện câu lệnh sau từ khóa Then
D. Kiểm tra < câu lệnh >
Câu 3:Cho biết câu lệnh sau Do thực hiện mấy lần trong đoạn chương trình sau:
i := 5;
While i>=1 do i := i – 1;
A. 1 lần
B. 2 lần
C. 5 lần
D. 6 lần
Câu 4:Hãy cho biết kết quả của đoạn chương trình dưới đây:
a:=10; While a < 11 do write (a);
A. Trên màn hình xuất hiện một số 10
B. Trên màn hình xuất hiện 10 chữ a
C. Trên màn hình xuất hiện một số 11
D. Chương trình bị lặp vô tận
Câu 5:Câu lệnh sau giải bài toán nào:
While M <> N do
If M > N then M:=M-N else N:=N-M;
A. Tìm UCLN của M và N
B. Tìm BCNN của M và N
C. Tìm hiệu nhỏ nhất của M và N
D. Tìm hiệu lớn nhất của M và N
B. Tự luận
Câu hỏi 1. Nêu cú pháp câu lệnh lặp với số lần chưa biết trước? Nêu hoạt động của câu lệnh lặp?
Câu hỏi 2. Hãy phát biểu sự khác biệt giữa câu lệnh lặp với số lần lặp cho trước và câu lệnh lặp với số
lần lặp chưa biết trước.
Câu hỏi 3. Hãy tìm hiểu các thuật toán sau đây và cho biết khi thực hiện thuật toán, máy tính sẽ bao
nhiêu vòng lặp? Khi kết thúc, giá trị của S bằng bao nhiêu? Viết chương trình Pascal thể hiện các thuật
toán đó.
a) Thuật toán 1
Bước 1. S←10, ← 0.5
Bước 2. Nếu S≤ 5.2, chuyển tới bước 4.
Bước 3. S←S-x và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
b) Thuật toán 2
Bước 1. S ←10, n ← 0.
Bước 2. Nếu S ≤ 10, chuyển tới bước 4.
Bước 3. n ← n + 3, S ← S-n và quay lại bước 2.
Bước 4. Thông báo S và kết thúc thuật toán.
C. Thực hành (Nếu không có máy tính HS có thể viết chương trình vào vở)
Viết chương trình tính tổng của số tự nhiên từ 1 đến 100 sử dụng câu lệnh....while...do...
Câu 1:Vòng lặp While – do kết thúc khi nào
A. Khi một điều kiện cho trước được thỏa mãn
B. Khi đủ số vòng lặp
C. Khi tìm được Output
D. Tất cả các phương án
Câu 2:Việc đầu tiên mà câu lệnh While ... do cần thực hiện là gì?
A. Thực hiện < câu lệnh > sau từ khóa Do
B. Kiểm tra giá trị của < điều kiện >
C. Thực hiện câu lệnh sau từ khóa Then
D. Kiểm tra < câu lệnh >
Câu 3:Cho biết câu lệnh sau Do thực hiện mấy lần trong đoạn chương trình sau:
i := 5;
While i>=1 do i := i – 1;
A. 1 lần
B. 2 lần
C. 5 lần
D. 6 lần
Câu 4:Hãy cho biết kết quả của đoạn chương trình dưới đây:
a:=10; While a < 11 do write (a);
A. Trên màn hình xuất hiện một số 10
B. Trên màn hình xuất hiện 10 chữ a
C. Trên màn hình xuất hiện một số 11
D. Chương trình bị lặp vô tận
Câu 5:Câu lệnh sau giải bài toán nào:
While M <> N do
If M > N then M:=M-N else N:=N-M;
A. Tìm UCLN của M và N
B. Tìm BCNN của M và N
C. Tìm hiệu nhỏ nhất của M và N
D. Tìm hiệu lớn nhất của M và N
B. Tự luận